home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / biz / dopus / cut_copy.lha / CUT-COPY-PASTE.dopus5
Text File  |  2002-06-03  |  2KB  |  68 lines
  1. /*$VER: CUT-COPY-PASTE 1.1 (16.11.2001)
  2.   Àâòîð Âëàäèìèð ßâîðñêèé (jvovka@belnet.ru).
  3.  
  4.   ARexx-ñêðèïò äëÿ Directory Opus 5.
  5.   Ýìèòèðóåò ìåòîä ìàíèïóëÿöèè ñ ôàéëàìè Windows9x.
  6.  
  7.   Ýòî ïðîñòîé, íî íå î÷åíü óìíûé ñêðèïò... :-)
  8.  
  9.   Function: ARexx DOpus5:ARexx/CUT-COPY-PASTE.dopus5 {Qp} {Ql} CUT/COPY/PASTE
  10.   Flags   : none
  11.  
  12.   Ïðèìåð:    1. Êîïèðîâàíèå ôàéëîâ.
  13.             ARexx DOpus5:ARexx/CUT-COPY-PASTE.dopus5 {Qp} {Ql} COPY
  14.             2. Âûðåçêà ôàéëîâ.
  15.             ARexx DOpus5:ARexx/CUT-COPY-PASTE.dopus5 {Qp} {Ql} CUT
  16.             3. Âñòàâêà ôàéëîâ.
  17.             ARexx DOpus5:ARexx/CUT-COPY-PASTE.dopus5 {Qp} {Ql} PASTE
  18. */
  19.  
  20. OPTIONS RESULTS
  21. PARSE ARG port handle action .
  22. ADDRESS VALUE port
  23.  
  24. lister query handle path
  25. path=RESULT
  26. lister set handle busy on
  27.  
  28. IF action~="PASTE" THEN
  29. DO
  30.         lister query handle selentries stem entry
  31.         lister query handle numselentries
  32.         entries=RESULT
  33.         Open(copylist,'T:copylist','W')
  34.         WriteLn(copylist,action)
  35.         WriteLn(copylist,entries)
  36.         WriteLn(copylist,path)
  37.         DO i=0 TO entry.count-1
  38.              WriteLn(copylist,entry.i)
  39.         END
  40.         Close(copylist)
  41. END
  42. ELSE
  43. DO
  44.     Open(copylist,'T:copylist','R')
  45.         action      =    ReadLn(copylist)
  46.         filecount = ReadLn(copylist)
  47.         source      =    ReadLn(copylist)
  48.         lister set handle newprogress name bar info
  49.         lister set handle newprogress title "Âñòàâêà..."
  50.         lister set handle newprogress info "Èç '"source"'"
  51.         DO i=0 TO filecount-1
  52.           filename=ReadLn(copylist)
  53.           lister set handle newprogress name filename
  54.           lister set handle newprogress bar filecount i
  55.           IF action="COPY" THEN
  56.             command copy source||filename path
  57.           ELSE
  58.             command move source||filename path
  59.         END
  60.         lister set handle newprogress phandle off
  61.         Close(copylist)
  62.     lister read handle path force
  63. END
  64.  
  65. lister set handle busy off
  66.  
  67. EXIT
  68.